home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / progs / editor / frexxed / fpl / insremtab.fpl < prev    next >
Text File  |  1995-08-10  |  578b  |  39 lines
  1. export void InsTab(void)
  2. {
  3. if(ReadInfo("line_length")>1)
  4.     {
  5.     int i;
  6.  
  7.     if(ReadInfo("indent_uses_tabs"))
  8.         Output("\t");
  9.     else
  10.         for(i=0;i<ReadInfo("tab_size");i++)
  11.             Output(" ");
  12.  
  13.     CursorLeft(1);
  14.     }
  15.  
  16. CursorDown(1);
  17. }
  18.  
  19. export void RemTab(void)
  20. {
  21. if(ReadInfo("line_length")>1)
  22.     if(GetChar()=='\t')
  23.         Delete(1);
  24.     else
  25.         {
  26.         int i;
  27.         for(i=0;(i<ReadInfo("tab_size") && GetChar()==' ');i++)
  28.             Delete(1);
  29.         }
  30.  
  31. CursorDown(1);
  32. }
  33.  
  34. {
  35. AssignKey("InsTab();", "Control 'Tab'");
  36. AssignKey("RemTab();", "Shift Control 'Tab'");
  37. ConstructInfo("indent_uses_tabs", "", "", "WLB", "", 0, 1, 1);
  38. }
  39.